home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro15 / t-bird.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-20  |  1.5 KB  |  53 lines
  1.  '******************************************************************************
  2.  '* T-BIRD - Line drawing demo for the 160x200x16 color graphics mode.         *
  3.  '*                                                                            *
  4.  '* Written for GRAFIX by:  Joseph A. Albrecht                                 *
  5.  '*                                                                            *
  6.  '* Press ESC to exit program                                                  *
  7.  '******************************************************************************
  8.  '$INCLUDE: 'GRAFQBS.INC'
  9.  'The above line is for QuickBASIC.
  10.  
  11.  ''$INCLUDE "GRAFTBS.INC"
  12.  'The above line is for TURBO BASIC. Remove the  ''  to compile the program.
  13.  
  14.  ''$INCLUDE "GRAFPBS.INC"
  15.  'The above line is for PowerBASIC. Remove the  ''  to compile the program.
  16.  
  17.  CALL LowGraphics
  18.  DIM LC(14)
  19.  FOR I = 0 TO 13
  20.    READ LC(I)
  21.  NEXT I
  22.  
  23. Again:
  24.  CALL ClearScreen
  25.  L = 0
  26.  K = 156
  27.  FOR J = 80 TO K
  28.    FOR I = 0 TO J
  29.      A$ = INKEY$
  30.      IF A$ = CHR$(27) THEN GOTO EndProgram
  31.      CALL SetPlotColor(LC(L))
  32.      CALL ExtLine(I, J, K - I, K - J)
  33.      CALL ExtLine(K - I, J, I, K - J)
  34.      CALL ExtLine(J, I, K - J, K - I)
  35.      CALL ExtLine(K - J, I, J, K - I)
  36.      L = (L + 1) MOD 14
  37.    NEXT I
  38.  NEXT J
  39.  X# = TIMER + 7
  40.  A$ = ""
  41.  WHILE (TIMER < X#) AND (A$ = "")
  42.    A$ = INKEY$
  43.  WEND
  44.  IF A$ = CHR$(27) THEN GOTO EndProgram
  45.  GOTO Again
  46.  
  47. EndProgram:
  48.  CALL ExitGraphics
  49.  END
  50.  
  51.  DATA 0,15,3,3,3,3,3,4,3,4,3,3,15,0
  52.  
  53.